<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.4</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3000</cardID>
<listID>5008</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>On Closestackput "Select the (hard)disk(s) to be checked" && ¬"by clicking the name(s) in the field here above." && ¬"Start Search by clicking the Microscope Button !" into cd fld "Work"put empty into cd fld "loadvols"put empty into fld "volumes"put empty into fld "results"put empty into cd fld "directory"domenu "compact stack"end Closestackon openstackhide msgglobal resultstorageif resultstorage is not emptythenput resultstorage into fld "results"end ifset userlevel to 5put empty into fld volumesput empty into newListput 0 into vCountput return & volumes () into realListput field volumes into myListrepeat until myList is emptyget offset (return & char 3 to 99 of line 1 of myList & return,realList)if it > 0 thenput length of line 1 of myList into xdelete char it to it + x - 2 of realListput line 1 of myList & return after newListend ifif char 1 of line 1 of myList = "" then add 1 to vCountdelete line 1 of myListend repeatdelete char 1 of realListrepeat while realList is not empty-- put " " & line 1 of realList & return after newListput " " & line 1 of realList & return after newListdelete line 1 of realListadd 1 to vCountend repeatput newList into field volumesend openstack</script>
